'Detlef Kornatz
  'Feuerbachstrasse 6
  'D-4300 Essen 1 
  '*********************************************************************
  SCREEN 2,640,240,4,2
  WINDOW 2,"Kraftwerke+Häuser",,1,2
  PALETTE 0,1,1,0.9
  DEFINT a-z
Text:
  COLOR 8,0
  LOCATE 2,4:PRINT "Sie sehen hier drei Kraftwerke                 und drei Häuser."
  COLOR 5,0:LOCATE 2,34:PRINT "Strom,":COLOR 4,0:LOCATE 2,40:PRINT "Wasser,":COLOR 3,0:LOCATE 2,47:PRINT "Gas"
  COLOR 8,0
  LOCATE 4,4:PRINT "Alle Häuser müssen von den Kraftwerken versorgt werden."
  LOCATE 6,4:PRINT "Versuchen Sie doch einmal,die Versorgungsleitungen mit der"
  LOCATE 8,4:PRINT "der linken Maustaste zu legen.Nur ein Haken ist dabei,die"
  LOCATE 10,4:PRINT"Leitungen dürfen sich nicht kreuzen.Viel Spass!"
Kraftw:
  LINE(30,100)-(40,130),5,bf
  LINE(40,120)-(90,130),5,bf     'Strom
  LINE(280,100)-(290,130),4,bf  
  LINE(290,120)-(340,130),4,bf   'Wasser
  LINE(530,100)-(540,130),3,bf
  LINE(540,120)-(590,130),3,bf   'Gas
    
   a=50:aa=30:b=70:dd=200:d=180: c=300:cc=280:e=320: ee=550:f=530:ff=570 
Haus:
   COLOR 9,0
   AREA (a,d) : AREA (aa,dd) :AREA (b,dd) : AREAFILL 
   AREA (c,d) : AREA (cc,dd) :AREA (e,dd) : AREAFILL
   AREA (ee,d) : AREA (f,dd) :AREA (ff,dd) : AREAFILL
   LINE (aa,dd)-(100,220),15,bf
   LINE (cc,dd)-(350,220),15,bf
   LINE (f,dd)-(600,220),15,bf                              
start:
   LINE (500,60)-(590,75),13,bf 
   LINE (500,60)-(590,75),5,b      
   LINE (501,59)-(589,76),6,b           
   LOCATE 9,65:PRINT "ZEICHNEN"
maus:
   WHILE 1
   v= MOUSE(0)
   IF MOUSE(0) = 0 THEN WEND
   CALL maus(x,y)
   IF x<500 OR x>590 THEN GOTO maus
   IF y<60 OR y>75 THEN GOTO maus
   SUB maus (x,y) STATIC
   x = MOUSE(1)
   y = MOUSE(2)
   END SUB
   GOSUB zeichnen    
zeichnen:
   CLS        
   PALETTE 0,0,0,0
Kraftwerke:
  LINE(60,50)-(70,80),5,bf
  LINE(70,70)-(120,80),5,bf    'Strom
  LINE(280,50)-(290,80),4,bf  
  LINE(290,70)-(340,80),4,bf   'Wasser
  LINE(500,50)-(510,80),3,bf
  LINE(510,70)-(560,80),3,bf   'Gas
    
   a=80:aa=60:b=100:dd=180:d=160: c=300:cc=280:e=320: ee=520:f=500:ff=540 
Haeuser:
   COLOR 9,0
   AREA (a,d) : AREA (aa,dd) :AREA (b,dd) : AREAFILL 
   AREA (c,d) : AREA (cc,dd) :AREA (e,dd) : AREAFILL
   AREA (ee,d) : AREA (f,dd) :AREA (ff,dd) : AREAFILL
   LINE (aa,dd)-(130,200),15,bf
   LINE (cc,dd)-(350,200),15,bf
   LINE (f,dd)-(570,200),15,bf                              
neu:
   LINE (250,2)-(340,22),13,bf 
   LINE (250,2)-(340,22),5,b      
   LINE (251,3)-(339,21),6,b
   LOCATE 2,2:PRINT "Immer vom Kraftwerk zeichnen"
   LOCATE 3,2:PRINT "linke Maustaste dücken+halten"           
   LOCATE 2,36:PRINT "Neu"
   LOCATE 2,50:PRINT "Leitungen nicht keuzen"
  
   IF zeichnen THEN GOSUB mausy:GOSUB fa:GOSUB far:GOSUB farb: GOSUB nocheinmal
   
   
 mausy:
  IF MOUSE(0)<>0 THEN mausy
  x=MOUSE(1):y=MOUSE(2) 
 nocheinmal:   
  IF x>250 AND x<340 AND y>2 AND y<22 THEN GOTO zeichnen

 fa:
  IF x>60 AND x<120 AND y>50 AND y<80 THEN s=5:t=5:r=5:a=MOUSE(0):x=MOUSE(1):y=MOUSE(2)
  WHILE MOUSE(0)<>0
  LINE(x,y)-(MOUSE(1),MOUSE(2)),r
  x=MOUSE(1):y=MOUSE(2)
  WEND
  
 far:  
  IF x>280 AND x<340 AND y>50 AND y<80 THEN r=4:t=4:s=4:b=MOUSE(0):x=MOUSE(1):y=MOUSE(2)
  WHILE MOUSE(0)<>0
  LINE(x,y)-(MOUSE(1),MOUSE(2)),s
  x=MOUSE(1):y=MOUSE(2)
  WEND

 farb:    
  IF x>500 AND x<560 AND y>50 AND y<80 THEN r=3:s=3:t=3:c=MOUSE(0):x=MOUSE(1):y=MOUSE(2)
  WHILE MOUSE(0)<>0
  LINE(x,y)-(MOUSE(1),MOUSE(2)),t
  x=MOUSE(1):y=MOUSE(2)
  WEND
  GOTO mausy   
  END